From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 15 May 1993 20:32:23 +0000 (+0000)
Subject: (mouse-set-region): Call set-mark to activate mark.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96258
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1cc8a3f41a169505f9078ccc4d53dfc87bf598cb;p=emacs.git

(mouse-set-region): Call set-mark to activate mark.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 779d4fa5b67..5f032754c00 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -111,6 +111,7 @@ This must be bound to a mouse drag event."
 	     (eq (framep (selected-frame)) 'x))
 	(sit-for 1))
     (push-mark)
+    (set-mark (point))
     (if (numberp (posn-point end))
 	(goto-char (posn-point end)))))